100 REM SCHREIBSCHUTZ SETZEN / LOESCHEN
101 REM DURCH AENDERUNG DES FORMAT-
102 REM KENNZEICHENS IN DER BAM !!!
103 REM FUNKTIONSWEISE SETZEN :
104 REM FORMATKENNZEICHEN WIRD AUF
105 REM BELIEBIGEN WERT AUSSER 'A'
106 REM GESETZT. AB SOFORT KOENNEN
107 REM KEINE SCHREIBVORGAENGE AUSSER
108 REM FORMATIEREN DURCHGEFUEHRT
109 REM WERDEN. ALSO VORSICHT !
110 REM FUNKTIONSWEISE FREIGEBEN
111 REM DIE FLOPPY SPEICHERT DAS
112 REM FORMATKENNZEICHEN DER EINGEL.
113 REM DISKETTE IN DER SPEICHERSTELLE
114 REM $0101 ZWISCHEN. WIRD DIES
115 REM VOR DEM SCHREIBVORGANG AUF
116 REM 'A' ZURUECKGESETZT, LAESST
117 REM SICH DIE FLOPPY 'UEBERLISTEN'
118 REM DAS 'A' WIRD NUN IN DIE BAM
119 REM GESCHRIEBEN
120 :
130 PRINT"WOLLEN SIE DIE EINGEL. DISKETTE"
140 INPUT"SCHUETZEN ODER FREIGEBEN";AA$
150 IF AA$="S" THEN 200
160 IF AA$="F" THEN 300
170 PRINT:RUN
180 :
190 :
200 OPEN 15,8,15,"I":OPEN8,8,8,"#"
210 PRINT#15,"U1 8 0 18 0"
220 PRINT#15,"B-P 8 2"
230 PRINT#8,"X";
240 PRINT#15,"U2 8 0 18 0"
250 PRINT#15,"I"
260 CLOSE8:CLOSE15:PRINT:RUN
270 :
280 :
290 :
300 OPEN 15,8,15,"I":OPEN8,8,8,"#"
310 PRINT#15,"U1 8 0 18 0"
320 PRINT#15,"B-P 8 2"
330 PRINT#15,"M-W"CHR$(1)CHR$(1)CHR$(1)CHR$(65)
340 PRINT#8,"A";
350 PRINT#15,"U2 8 0 18 0"
360 PRINT#15,"I"
370 CLOSE8:CLOSE15:PRINT:RUN